home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 15 / Tiger_Disk_015_19xx_Tiger-Crew-Disk_de_Side_B.d64 / elektr. tagebuch (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  28 lines
  1. 2 poke53280,0:poke53281,0:poke646,15:gosub40000
  2. 5 print"[147]   [197]lektronisches [212]agebuch"
  3. 10 poke808,254:print"   [205]enue:":input"   1=codieren, 2=decodieren";w
  4. 12 print"   [194]itte [196]iskette einlegen!"
  5. 15 printtab(26)"tt.mm.jjjj[145][145]":input"                  [196]atum ";d$
  6. 18 print"   [195]odezahlen x,y,z":input"   durch [203]omma getrennt ";a,b,c
  7. 20 dimt(839),t$(839):x=0:ifw=2then70
  8. 25 print"[147]   [212]exteingabe (max. 839 [218]eichen)":print"   '*' = [197]nde":print">";
  9. 30 gett$(x):ift$(x)=""then30
  10. 35 ift$(x)="*"orx=839then50
  11. 40 printt$(x);:x=x+1:goto30
  12. 50 open1,8,2,d$+",s,w":print#1,x:fori=0tox-1:b=b+(a*c):print#1,asc(t$(i))+c+b
  13. 60 nexti:close1:goto99
  14. 70 print"[147]>";:open1,8,2,d$+",s,r":input#1,x:fori=0tox-1:b=b+(a*c):input#1,t(i)
  15. 80 t(i)=(t(i)-b)-c:ift(i)<0ort(i)>255thenclose1:print"[198]alsche [197]ingabe":goto99
  16. 90 printchr$(t(i));:nexti:close1
  17. 99 clr:poke808,237:end:rem -pts,1985-
  18. 40000 fori=0to63:reada:s=s+a:poke40704+i,a:nexti
  19. 40010 ifs<>6973thenprint"? fehler in datas":end
  20. 40020 print"datas ok":sys40704:return
  21. 40030 data169,255,141,6,212,141,24,212,169
  22. 40040 data9,141,5,212,169,103,141,1,212
  23. 40050 data169,33,141,0,212,120,169,38,141
  24. 40060 data20,3,169,159,141,21,3,133,56,88
  25. 40070 data96,72,165,203,201,64,208,9,169
  26. 40080 data0,141,4,212,104,76,49,234,169
  27. 40090 data17,141,4,212,76,50,159,0,0
  28.